; === 定义替代ISIN函数 ===
FUNCTION ISIN_IDL85, array, value
  ; 查找value在array中的位置，若无则返回-1
  ; 等效于高版本的ISIN函数
  FOR i = 0, N_ELEMENTS(array)-1 DO BEGIN
    IF array[i] EQ value THEN RETURN, i
  ENDFOR
  RETURN, -1
END